home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / ste / mega / speed_sw.arc / WHATAMI.S < prev   
Text File  |  1992-02-11  |  2KB  |  81 lines
  1. *****************************************
  2. *       Speed-SWitcher MSTE  v1.1       *
  3. *   by Daniel Eriksson of Delta Force.  *
  4. *                                       *
  5. *              What am I?               *
  6. *                                       *
  7. *       First edited:  1991-12-25       *
  8. *       Last edited :  1992-02-11       *
  9. *                                       *
  10. *      This is a shareware program.     *
  11. *     If you like it and use it then    *
  12. * please contact me at any of the below *
  13. *         mentioned addresses!          *
  14. *     [only legal stuff of course!]     *
  15. *                                       *
  16. * Written and developed in Devpac v2.25 *
  17. *****************************************
  18.  
  19.  
  20. ; The program is totally position independent (pc-relative).
  21.  
  22. * Run fetch_status-routine in supervisor mode *
  23.     pea    fetch_status(pc)
  24.     move.w    #38,-(sp)
  25.     trap    #14            ; Supexec (XBIOS)
  26.     lea    6(sp),sp
  27.  
  28. * Write detect-text *
  29.     pea    de_text(pc)
  30.     move.w    #9,-(sp)
  31.     trap    #1            ; Cconws (GEMDOS)
  32.     lea    6(sp),sp
  33.  
  34. * Write status-text *
  35.     lea    status(pc),a0
  36.     cmp.b    #3,(a0)            ; Check for 16 MHz and cache ON
  37.     bne.s    next1
  38.     pea    t16_on(pc)
  39.     bra.s    ready
  40. next1:
  41.     cmp.b    #2,(a0)            ; Check for 16 MHz and cache OFF
  42.     bne.s    next2
  43.     pea    t16_of(pc)
  44.     bra.s    ready
  45. next2:
  46.     cmp.b    #0,(a0)            ; Check for 8 MHz (and cache OFF)
  47.     bne.s    next3
  48.     pea    t8(pc)
  49.     bra.s    ready
  50. next3:
  51.     pea    strange(pc)
  52. ready:
  53.     move.w    #9,-(sp)
  54.     trap    #1            ; Cconws (GEMDOS)
  55.     lea    6(sp),sp
  56.  
  57. * Terminate *
  58.     clr.w    -(sp)            ; Pass a zero to parent-process
  59.     move.w    #$4c,-(sp)
  60.     trap    #1            ; Pterm (GEMDOS)
  61.  
  62. * The fetch_status-routine *
  63. fetch_status:
  64.     move.b    $ffff8e21.w,d0
  65.     and.b    #3,d0
  66.     lea    status(pc),a0
  67.     move.b    d0,(a0)
  68.     rts
  69.  
  70. * Here's the DATA-segment *
  71.     section    data
  72. status    ds.b    1
  73. de_text    dc.b    13,10,"Speed-SWitcher MSTE  v1.1  1992-02-11",13,10
  74.     dc.b    "by Daniel Eriksson of Delta Force.",13,10,0
  75. t16_on    dc.b    "You are running at 16 MHz and cache ON!",13,10,13,10,0
  76. t16_of    dc.b    "You are running at 16 MHz and cache OFF!",13,10,13,10,0
  77. t8    dc.b    "You are running at 8 Mhz (and cache OFF)!",13,10,13,10,0
  78. strange    dc.b    "Your computer is really STRANGE!",13,10,13,10,0
  79.  
  80.     END
  81.